home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / ww2-div-pac.g < prev    next >
Text File  |  1998-05-22  |  10KB  |  400 lines
  1. (game-module "ww2-div-pac"
  2.   (title "WWII, Division-level, Pacific")
  3.   (blurb "base module for divisional/theater-level WWII in the Pacific")
  4.   )
  5.  
  6. (unit-type a-inf-bn (image-name "inf-bn")
  7.   (help "Allied infantry battalion"))
  8. (unit-type a-inf-reg (image-name "inf-reg")
  9.   (help "Allied infantry regiment"))
  10. (unit-type a-inf-bde (image-name "inf-bde")
  11.   (help "Allied infantry brigade"))
  12. (unit-type a-inf-div (image-name "inf-div")
  13.   (help "Allied infantry division"))
  14. (unit-type a-inf-corps (image-name "inf-corps")
  15.   (help "Allied infantry corps"))
  16. (unit-type a-inf-army (image-name "inf-army")
  17.   (help "Chinese infantry army"))
  18.  
  19. (define a-inf-types (a-inf-bn a-inf-reg a-inf-bde a-inf-div a-inf-corps a-inf-army))
  20.  
  21. (unit-type a-marine-bn (image-name "marine-bn")
  22.   (help "Allied marine battalion"))
  23. (unit-type a-marine-reg (image-name "marine-reg")
  24.   (help "Allied marine regiment"))
  25. (unit-type a-marine-bde (image-name "marine-bde")
  26.   (help "Allied marine brigade"))
  27. (unit-type a-marine-div (image-name "marine-div")
  28.   (help "Allied marine division"))
  29.  
  30. (define a-marine-types (a-marine-bn a-marine-reg a-marine-bde a-marine-div))
  31.  
  32. (unit-type a-para-div (image-name "para-div")
  33.   (help "Allied airborne division"))
  34.  
  35. (unit-type a-spec-reg (image-name "spec-reg")
  36.   (help "Allied special forces regiment"))
  37.  
  38. (unit-type a-armor-bde (image-name "armor-bde")
  39.   (help "Allied armor brigade"))
  40.  
  41. (unit-type a-engr-reg (image-name "engr-reg")
  42.   (help "Allied engineer regiment"))
  43.  
  44. (define a-other-types (a-para-div a-spec-reg a-armor-bde a-engr-reg))
  45.  
  46. (define a-ground-types (append a-inf-types a-marine-types a-other-types))
  47.  
  48. (add a-ground-types possible-sides "allied")
  49.  
  50. (unit-type j-inf-bn (image-name "inf-bn")
  51.   (help "Japanese infantry battalion"))
  52. (unit-type j-inf-reg (image-name "inf-reg")
  53.   (help "Japanese infantry regiment"))
  54. (unit-type j-inf-bde (image-name "inf-bde")
  55.   (help "Japanese infantry brigade"))
  56. (unit-type j-inf-div (image-name "inf-div")
  57.   (help "Japanese infantry division"))
  58.  
  59. (define j-inf-types (j-inf-bn j-inf-reg j-inf-bde j-inf-div))
  60.  
  61. (unit-type j-marine-bn (image-name "marine-bn")
  62.   (help "Japanese marine battalion"))
  63.  
  64. (unit-type j-para-bde (image-name "para-bde")
  65.   (help "Japanese airborne brigade"))
  66.  
  67. (unit-type j-armor-bde (image-name "armor-bde")
  68.   (help "Japanese armor brigade"))
  69.  
  70. (unit-type j-engr-reg (image-name "engr-reg")
  71.   (help "Japanese engineer regiment"))
  72.  
  73. (define j-other-types (j-marine-bn j-para-bde j-armor-bde j-engr-reg))
  74.  
  75. (define j-ground-types (append j-inf-types j-other-types))
  76.  
  77. (add j-ground-types possible-sides "japanese")
  78.  
  79. (unit-type hq (image-name "flag"))
  80.  
  81. (define ground-types (append a-ground-types j-ground-types hq))
  82.  
  83. (unit-type apd (image-name "ap")
  84.   (help ""))
  85. (unit-type aa (image-name "ap")
  86.   (help "amphibious assault ship"))
  87. (unit-type de (image-name "dd")  ; (should have a distinct DE picture?)
  88.   (help "destroyer escort"))
  89. (unit-type dd (image-name "dd")
  90.   (help "destroyer"))
  91. (unit-type ss (image-name "sub")
  92.   (help "submarine"))
  93. (unit-type cl (image-name "ca")
  94.   (help "light cruiser"))
  95. (unit-type ca (image-name "ca")
  96.   (help "heavy cruiser"))
  97. (unit-type cve (image-name "cv")
  98.   (help "escort carrier"))
  99. (unit-type cvl (image-name "cv")
  100.   (help "light carrier"))
  101. (unit-type cvs (image-name "cv")
  102.   (help "seaplane carrier"))
  103. (unit-type cv (image-name "cv")
  104.   (help "aircraft carrier"))
  105. (unit-type bc (image-name "bb")
  106.   (help "battlecruiser"))
  107. (unit-type bb (image-name "bb")
  108.   (help "battleship"))
  109.  
  110. (define transport-types (apd aa))
  111.  
  112. (define small-ship-types (apd aa de dd ss))
  113.  
  114. (define large-ship-types (cl ca cve))
  115.  
  116. (define capital-ship-types (cvl cvs cv bc bb))
  117.  
  118. (define carrier-types (cve cvl cvs cv))
  119.  
  120. (define ship-types (append small-ship-types large-ship-types capital-ship-types))
  121.  
  122. (unit-type airfield (image-name "airbase"))
  123. (unit-type airbase)
  124. (unit-type port (image-name "anchor"))
  125. (unit-type town (image-name "town20"))
  126. (unit-type city (image-name "city20"))
  127.  
  128. (define place-types (airfield airbase port town city))
  129.  
  130. (material-type org ; organization
  131.   (help "important to do things, acquired from HQs"))
  132. (material-type air ; aircraft
  133.   (help "attached aircraft used for support"))
  134.  
  135. (terrain-type sea
  136.   (help "open water"))
  137. (terrain-type atoll
  138.   (help "group of small coral islands, surrounded by lagoon"))
  139. (terrain-type clear (image-name "plains"))
  140. (terrain-type jungle (image-name "forest"))
  141. (terrain-type hills)
  142. (terrain-type mountains)
  143. (terrain-type road
  144.   (subtype connection))
  145. (terrain-type river
  146.   (subtype border))
  147. (terrain-type reef (image-name "gray")
  148.   (subtype border)
  149.   (help "a band of coral reefs, usually between land and ocean"))
  150.  
  151. (define water (sea atoll))
  152. (define land (clear jungle mountains))
  153.  
  154. (define cell-t* (sea atoll clear jungle hills mountains))
  155.  
  156. ;; Atolls don't have obvious shorelines, so call them liquid.
  157.  
  158. (add water liquid true)
  159.  
  160. ;;; Static relationships.
  161.  
  162. (table vanishes-on
  163.   (ground-types sea true)
  164.   (ship-types land true)
  165.   (place-types sea true)
  166.   ((town city) atoll true)
  167.   )
  168.  
  169. (add sea capacity 100)
  170.  
  171. (add land capacity 4)
  172.  
  173. (add transport-types capacity 12)
  174.  
  175. (add (port town city) capacity (8 8 32))
  176.  
  177. (table unit-size-as-occupant
  178.   (u* transport-types 99)
  179.   (u* place-types 99)
  180.   ;; (should account for varying size of ground units)
  181.   (ground-types transport-types 1)
  182.   (ground-types (town city) 1)
  183.   (ship-types (port town city) 1)
  184.   )
  185.  
  186. (table unit-storage-x
  187.   (u* org 1)
  188.   ;; Aircraft complements for various types of carriers.
  189.   (carrier-types air (24 36 12 72))
  190.   (place-types air (72 144 0 288 576))
  191.   )
  192.  
  193. ;;; Vision.
  194.  
  195. (set terrain-seen true)
  196.  
  197. (add u* already-seen 20)
  198. (add place-types already-seen 100)
  199.  
  200. ;; Range should depend on availability of scout aircraft...
  201.  
  202. (add carrier-types vision-range 4)
  203.  
  204. (add place-types vision-range 4)
  205.  
  206. ;;; Action parameters.
  207.  
  208. (add ground-types acp-per-turn 1)
  209. (add ship-types acp-per-turn 24)
  210.  
  211. ;;; Movement.
  212.  
  213. (table mp-to-enter-terrain
  214.   (ground-types sea 99)
  215.   (ship-types land 99)
  216.   (ship-types atoll 12)
  217.   )
  218.  
  219. (table mp-to-leave-terrain
  220.   (ship-types atoll 12)
  221.   )
  222.  
  223. ;;; Combat.
  224.  
  225. ;; For ground units, 1 battalion is approximately 1 hp.
  226.  
  227. (add a-inf-types hp-max (1 3 6 12 12 12))
  228. (add a-marine-types hp-max (1 3 6 12))
  229. (add a-other-types hp-max (12 3 6 3))
  230. (add j-inf-types hp-max (1 3 6 12))
  231. (add j-other-types hp-max (1 6 6 3))
  232.  
  233. (add a-inf-types parts-max (1 3 6 12 12 12))
  234. (add a-marine-types parts-max (1 3 6 12))
  235. (add a-other-types parts-max (12 3 6 3))
  236. (add j-inf-types parts-max (1 3 6 12))
  237. (add j-other-types parts-max (1 6 6 3))
  238.  
  239. ;apd aa de dd ss cl ca cve cvl cvs cv bc bb
  240.  
  241. (add ship-types hp-max    (6 6 6 6 6 4 6 4 4 4 5 5 6))
  242. (add ship-types parts-max (6 6 6 6 6 2 2 2 1 1 1 1 1))
  243.  
  244. (add place-types hp-max (10 20 20 40 80))
  245.  
  246. (table acp-to-attack
  247.   (ship-types u* 6)
  248.   )
  249.  
  250. (table acp-to-defend
  251.   (u* ship-types 6)
  252.   )
  253.  
  254. (add carrier-types acp-to-fire 12)
  255. (add place-types acp-to-fire 12)
  256.  
  257. (table acp-to-be-fired-on
  258.   (carrier-types carrier-types 6)
  259.   )
  260.  
  261. (add carrier-types range 8)
  262. (add place-types range 8)
  263.  
  264. (table hit-chance
  265.   ;; Ground combat.
  266.   (ground-types ground-types 50)
  267.   (ground-types place-types 50)
  268.   ;; Naval combat.
  269.   (ship-types ship-types 50)
  270.   )
  271.  
  272. (table damage
  273.   ;; Ground combat.
  274.   (ground-types ground-types 1)
  275.   (ground-types place-types 1)
  276.   ;; Naval combat.
  277.   (ship-types ship-types 1)
  278.   )
  279.  
  280. (table consumption-per-attack
  281.   ;; Expect to lose one plane in an attack.
  282.   (carrier-types air 1)
  283.   (place-types air 1)
  284.   )
  285.  
  286. (table hit-by
  287.   ;; Planes can attack just about anything.
  288.   (u* air 1)
  289.   )
  290.  
  291. (table material-to-attack
  292.   (carrier-types air 6)
  293.   )
  294.  
  295. (table capture-chance
  296.   (ground-types airfield 100)
  297.   (ground-types (airbase port) 90)
  298.   (ground-types (town city) 50)
  299.   )
  300.  
  301. ;;; Text.
  302.  
  303. (set action-notices '(
  304.   ((disband ground-types self done) (actor " goes home"))
  305.   ((disband ship-types self done) (actor " is scuttled"))
  306.   ((disband u* u* done) (actee " disbands"))
  307.   ((destroy u* ground-types) (actor " defeats " actee "!"))
  308.   ((destroy u* ship-types) (actor " sinks " actee "!"))
  309.   ((destroy u* place-types) (actor " flattens " actee "!"))
  310.   ))
  311.  
  312. (set action-narratives '(
  313.   ((disband ground-types self done) (actor " went home"))
  314.   ((disband ship-types self done) (actor " was scuttled"))
  315.   ((disband u* u* done) (actee " disbanded"))
  316.   ))
  317.  
  318. ;;; Defaults for testing.
  319.  
  320. ;;; Some defns for the fractal percentile generator.
  321.  
  322. (set alt-blob-density 10000)
  323. (set alt-blob-size 20)
  324. (set alt-smoothing 6)
  325. (set wet-blob-density 2000)
  326. (set wet-blob-size 100)
  327.  
  328. (add cell-t* alt-percentile-min (  0  90  90  90  97  98))
  329. (add cell-t* alt-percentile-max ( 90  91  97  97  98 100))
  330. (add cell-t* wet-percentile-min (  0   0   0  50   0   0))
  331. (add cell-t* wet-percentile-max (100 100  50 100 100 100))
  332.  
  333. ;;; River generation.
  334.  
  335. (add (clear jungle hills mountains) river-chance (10.00 25.00 25.00 25.00))
  336.  
  337. (set river-sink-terrain sea)
  338.  
  339. ;(table terrain-interaction (river (sea shallows) non-terrain))
  340.  
  341. (set edge-terrain sea)
  342.  
  343. (add u* start-with 1)  ; one of everything
  344.  
  345. (set country-radius-min 4)
  346. (set country-separation-min 20)
  347. (set country-separation-max 60)
  348.  
  349. (add (sea clear) country-terrain-min (10 5))
  350.  
  351. (table favored-terrain
  352.   (u* t* 0)
  353.   (ground-types land 100)
  354.   (ship-types sea 100)
  355.   (place-types land 100)
  356.   )
  357.  
  358. (table unit-initial-supply
  359.   (u* m* 9999)
  360.   (place-types air 100)
  361.   )
  362.  
  363. ;;; Sides.
  364.  
  365. (side 1 (name "Allies") (adjective "Allied") (emblem-name "flag-usa")
  366.    (class "allied") (names-locked true)
  367.    (unit-namers
  368.     (cl "us-cl-names")
  369.     (ca "us-ca-names")
  370.     (cve "us-cve-names")
  371.     (cv "us-cv-names")
  372.     (bb "us-bb-names"))
  373.    )
  374.  
  375. (side 2 (name "Japan") (adjective "Japanese") (emblem-name "flag-japan")
  376.    (class "japanese") (names-locked true)
  377.    (unit-namers
  378.     (ca "japanese-ca-names")
  379.     (cve "japanese-cve-names")
  380.     (cv "japanese-cv-names")
  381.     (bb "japanese-bb-names"))
  382.    )
  383.  
  384. (include "ng-ships")
  385.  
  386. (set calendar '(usual day))
  387.  
  388. (world 800 (year-length 365))
  389.  
  390. (game-module (design-notes (
  391.   "The map-scale is 30 miles/hex, game time is 1 day/turn."
  392.   "One unit of aircraft material is one plane."
  393.   ""
  394.   "To Do:"
  395.   ""
  396.   "Units with aircraft should have a long vision range."
  397.   ""
  398.   "Add fuel as material, scenarios could predefine certain places to have lots."
  399.   )))
  400.